home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_7_reportFaceBG.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  1.1 KB  |  66 lines
  1. property meSprite, meLoc, meVisibleLoc, marked, markerSprite
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   marked = 1000
  6.   markerSprite = sprite(59)
  7.   meSprite = sprite(me.spriteNum)
  8.   meLoc = meSprite.loc
  9.   meVisibleLoc = meLoc + point(0, -500)
  10.   gmObject.reportFaceBG(meSprite)
  11. end
  12.  
  13. on moveUp me
  14.   if meSprite.member.name <> "emptyFace" then
  15.     meSprite.loc = meVisibleLoc
  16.   end if
  17. end
  18.  
  19. on moveDown me
  20.   if meSprite.member.name <> "emptyFace" then
  21.     meSprite.loc = meLoc
  22.   end if
  23. end
  24.  
  25. on mouseUp me
  26.   if marked = 1000 then
  27.     unMarkAll(me)
  28.     setMarked(me, 0)
  29.   else
  30.     setMarked(me, 1000)
  31.     gmObject.goBack(meSprite)
  32.     go(gmObject.main)
  33.   end if
  34.   stopEvent()
  35. end
  36.  
  37. on setMarked me, p
  38.   marked = p
  39.   markerSprite.rect = meSprite.rect + rect(p, p, p, p)
  40. end
  41.  
  42. on deleteMe me
  43.   if marked = 0 then
  44.     setMarked(me, 1000)
  45.     gmObject.deleteSmallOne(meSprite)
  46.   end if
  47. end
  48.  
  49. on unMarkAll me
  50.   repeat with n = 1 to gmObject.smallFaceBGSpriteList.count
  51.     gmObject.smallFaceBGSpriteList[n].marked = 1000
  52.   end repeat
  53. end
  54.  
  55. on mouseEnter me
  56.   cursor([500, 501])
  57. end
  58.  
  59. on mouseLeave me
  60.   cursor(0)
  61. end
  62.  
  63. on endSprite me
  64.   cursor(0)
  65. end
  66.